From: Camm Maguire <camm@debian.org>
Date: Sun, 31 Jul 2022 16:00:02 +0000 (+0100)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.6.12-119+rpi1^2~30
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success//%22http:/www.example.com/cgi/success/?a=commitdiff_plain;h=82bdc731825e82a336e2d873963307c8befbcb1c;p=gcl.git

<short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

gcl (2.6.12-85) unstable; urgency=medium

  * Version_2_6_13pre81

Gbp-Pq: Name Version_2_6_13pre82
---

diff --git a/o/alloc.c b/o/alloc.c
index f8470e67..0343ab74 100644
--- a/o/alloc.c
+++ b/o/alloc.c
@@ -349,9 +349,10 @@ resize_hole(ufixnum hp,enum type tp,bool in_placep) {
   char *start=rb_begin(),*new_start=heap_end+hp*PAGESIZE;
   ufixnum size=rb_pointer-start;
 
+#define OVERLAP(c_,t_,s_) ((t_)<(c_)+(s_) && (c_)<(t_)+(s_))
   if (!in_placep && (rb_high() ?
-		     new_start+size>rb_end :
-		     new_start+(nrbpage<<PAGEWIDTH)<start+size
+		     OVERLAP(start,new_start,size) :
+		     OVERLAP(start,new_start+(nrbpage<<PAGEWIDTH),size)
 		     /* 0 (20190401  never reached)*/
 		     )) {
     if (sSAnotify_gbcA->s.s_dbind != Cnil)